Еще один подход заключается в создании класса который будет являться источником данных. Мы создаем ActiveX DLL как в шаге Шаг 1 - Создание COM DLL. Устанавливаем свойства класса DataSourceBehavior как в шаге Шаг 97 - Свой OCX элемент источник данных. Все дальше нужно только написать код.

Private rn As ADODB.Connection
Private rc As ADODB.Recordset

Private Sub Class_GetDataMember(DataMember As String, Data As Object)
Set Data = rc
End Sub

Private Sub Class_Initialize()

Set rn = New ADODB.Connection
rn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\TEST.mdb"
rn.Open
Set rc = New ADODB.Recordset
rc.Open "SELECT * FROM PIPLE", rn
End Sub

Здесь мы описываем строку соединения, SQL запрос используя для этого библиотеку ADO. Подробнее в шаге Шаг 40 - Использование ADO без ADO Data Control. Все можно собирать. В проекте клиенте нужно настроить создать объект класса и настроить свойства.

Private rr As AdoClassProject.Class1
Private Sub Form_Load()
	Set rr = New AdoClassProject.Class1
	Set Text1.DataSource = rr
	Text1.DataField = "NAME"
End Sub